home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / source / oldheads.lzh / amiconsasc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-10-04  |  14.7 KB  |  644 lines
  1. #include <exec/exec.h>
  2. #include <dos/dos.h>
  3. #include <libraries/dos.h>
  4. #include <devices/timer.h>
  5. #include <intuition/intuitionbase.h>
  6. #include <stdio.h>
  7. #include <stdlib.h>
  8. #include "work:romconf/doorheader.h"
  9. #include <proto/exec.h>
  10. #include <proto/dos.h>
  11. #include <string.h>
  12. //#include <functions.h>
  13. #define FOREVER for(;;)
  14. #define SM sendmessage
  15. #define HK hotkey
  16. #define FHK Fhotkey
  17. #define PM prompt
  18. #define LI lineinput
  19. #define JH_CK 500
  20. #define JH_ExtHK 15
  21.  
  22.  
  23. #define ADDBIT 1000
  24. #define REMBIT 1001
  25. #define QUERYBIT 1002
  26.  
  27. extern VOID Register(int node);
  28. extern VOID ShutDown(VOID);
  29. VOID ClosePort(void);
  30. extern int Editfile(char Name[],int len);
  31. extern void sendmessage(char mstring[],int nl);
  32. extern void mciputstr(char mstring[],int nl);
  33. extern int Download(char *s);
  34. extern int Upload(char *s);
  35. extern void ConOnly(char mstring[],int nl);
  36. extern void SerOnly(char mstring[],int nl);
  37. extern void sendMessage(char mstring[],int nl);
  38. void MciSendStr(char mstring[],int nl);
  39. extern int GetInfo(int cmd);
  40. extern void PutInfo(int data,int cmd);
  41. extern void sendchar(char mstring[], int nl);
  42. extern void hotkey(char mstring[],char *ostring);
  43. extern int FetchKey(void);
  44. extern int sigkey(void);
  45. extern char Fhotkey(void);
  46. extern int getkey(void);
  47. extern void Chain(char *str,int node,int opt);
  48. extern void prompt(char mstring[],char *ostring,int len);
  49. extern void lineinput(char mstring[],char *ostring,int len);
  50. extern void showfile(char mstring[]);
  51. extern void showgfile(char mstring[]);
  52. extern void getuserstring(char *ostring,int nl);
  53. extern void putuserstring(char *ostring,int nl);
  54. extern int getsignal(void);
  55. extern void FlagFile(char *string);
  56. extern void CloseOut(void);
  57. extern BOOL CheckToDisplay(char *s);
  58. extern int TLock(char *str);
  59. extern APTR GetSemaphore(void);
  60. extern int AcsStat(int bits,int opt);
  61. extern void end(void);
  62. extern void LastCommand(void);
  63. extern STRPTR GetTheDate(long number);
  64. extern STRPTR GetTheTime(long number);
  65. extern void getspecdata(char *ostring,char *dest,int nl);
  66.  
  67. void getsystime(long number,char *d,char *t);
  68.  
  69. struct MsgPort *port;
  70. struct MsgPort *replymp;
  71. struct JHMessage *Jhmsg,*msg;
  72. #define ANYKEY "press <RETURN> to continue"
  73. char DoorReply[] = "AEDoorRP.000";
  74. extern APTR GetSemaphore(void);
  75. VOID Register(int node)
  76. {
  77.   ULONG portsig;
  78.   int n1,n2,n3;
  79.   int found=0;
  80.   char PortName[80];
  81.   Jhmsg=(struct JHMessage *)AllocMem(sizeof(struct JHMessage),MEMF_PUBLIC);
  82.  
  83.  if(Jhmsg==0)
  84.   {
  85.      printf("Not enough Memory for message structure\n");
  86.      exit(30);
  87.   }
  88.   n1=n2=n3=0;
  89.   while(n1<10)
  90.   {
  91.     n2=0;
  92.     while(n2<10)
  93.     {
  94.       n3=0;
  95.       while(n3<10)
  96.       {
  97.         DoorReply[9]=n1+'0';
  98.         DoorReply[10]=n2+'0';
  99.         DoorReply[11]=n3+'0';
  100.         if(FindPort(DoorReply)) { n3++; continue; }
  101.         found=1; break;
  102.       }
  103.       if(found) break;
  104.       n2++;
  105.     }
  106.     if(found) break;
  107.     n1++;
  108.   }
  109.   if(!found)
  110.   {
  111.      FreeMem(Jhmsg,sizeof(struct JHMessage));
  112.     exit(30);
  113.   }
  114.   replymp=CreatePort(DoorReply,0L); strcpy(PortName,DoorReply);
  115.   
  116.  
  117.   if(replymp==0)
  118.   {
  119.     printf("Couldn't create reply port\n");
  120.     FreeMem(Jhmsg,sizeof(struct JHMessage));
  121.     exit(30);
  122.   }
  123.   Jhmsg->Msg.mn_Node.ln_Type=NT_MESSAGE;
  124.   Jhmsg->Msg.mn_Length=sizeof(struct JHMessage);
  125.   Jhmsg->Msg.mn_ReplyPort=replymp;
  126.   strcpy(Jhmsg->String,PortName);
  127.   Jhmsg->Command=JH_REGISTER;
  128.   Jhmsg->Data=2;
  129.   Jhmsg->NodeID=-1;
  130.   Jhmsg->LineNum=0;
  131.   sprintf(PortName,"AEDoorPort%d",node);
  132.   while(!(port=FindPort(PortName)));
  133.   PutMsg(port,(struct Message *)Jhmsg);
  134.  
  135.     portsig=1<<replymp->mp_SigBit;
  136.   
  137. Wait(portsig);
  138. msg=(struct JHMessage *)GetMsg((struct MsgPort *)replymp);
  139. }
  140.  
  141. VOID ShutDown(VOID)
  142. {
  143.  ULONG portsig,signal;
  144.   LastCommand();
  145.  portsig=1<<replymp->mp_SigBit;
  146.   Jhmsg->Command=JH_SHUTDOWN;
  147.   PutMsg(port,(struct Message *)Jhmsg); 
  148.   signal=Wait(portsig);
  149.   ClosePort();
  150. }
  151.  
  152. void ClosePort(void)
  153. {
  154.       while(msg=(struct JHMessage *)GetMsg((struct MsgPort *)replymp));
  155.        DeletePort((struct MsgPort *)replymp);
  156.        FreeMem(Jhmsg,sizeof(struct JHMessage));
  157. }
  158. int Editfile(char Name[],int len)
  159. { 
  160.          strcpy(msg->String,Name);
  161.          msg->Command=JH_EF;
  162.          msg->Data=len;
  163.          PutMsg(port,(struct Message *)Jhmsg); 
  164.          WaitPort(replymp);
  165.          GetMsg(replymp);
  166.          len=msg->Data;
  167.          if(msg->Data==-1) CloseOut();
  168.          return(len);
  169. }
  170.  
  171.  
  172. void sendmessage(char mstring[],int nl)
  173. {
  174.         register int counter;
  175.         char Temp[80];
  176.    
  177.         if(strlen(mstring)<80) sendMessage(mstring,0);
  178.         else
  179.         {
  180.           counter=0;
  181.           do
  182.           {
  183.             sprintf(Temp,"%.79s",&mstring[counter]);
  184.             sendMessage(Temp,0);
  185.             counter +=79;
  186.           }while(strlen(Temp)==79);
  187.         }
  188.         if(nl==1){ sendMessage("",1); Jhmsg->LineNum +=1; }
  189.         if(Jhmsg->LineNum==22)
  190.         { hotkey(ANYKEY,Temp); 
  191.  SM("\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b",0);
  192. SM("                          ",0);
  193. SM("\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b",0);
  194. }
  195. }
  196. void mciputstr(char mstring[],int nl)
  197. {
  198.         register int counter;
  199.         char Temp[80];
  200.    
  201.         if(strlen(mstring)<80) MciSendStr(mstring,0);
  202.         else
  203.         {
  204.           counter=0;
  205.           do
  206.           {
  207.             sprintf(Temp,"%.79s",&mstring[counter]);
  208.             MciSendStr(Temp,0);
  209.             counter +=79;
  210.           }while(strlen(Temp)==79);
  211.         }
  212.         if(nl==1) MciSendStr("",1); 
  213. }
  214. int Download(char *s)
  215. {
  216.    strcpy(Jhmsg->String,s);
  217.    Jhmsg->Command=ZMODEMSEND;
  218.    PutMsg(port,(struct Message *)Jhmsg);
  219.    WaitPort(replymp);
  220.    GetMsg(replymp);
  221.    if(Jhmsg->Data==0) return(0);
  222.    if(Jhmsg->Data==1) return(1);
  223.    if(Jhmsg->Data==-2)
  224.    {
  225.      CloseOut();
  226.    }
  227. }
  228. int Upload(char *s)
  229. {
  230.    strcpy(Jhmsg->String,s);
  231.    Jhmsg->Command=ZMODEMRECEIVE;
  232.    PutMsg(port,(struct Message *)Jhmsg);
  233.    WaitPort(replymp);
  234.    GetMsg(replymp);
  235.    if(Jhmsg->Data==0) return(0);
  236.    if(Jhmsg->Data==1) return(1);
  237.    if(Jhmsg->Data==-2)
  238.    {
  239.      CloseOut();
  240.    }
  241. }
  242. void ConOnly(char mstring[],int nl)
  243. {
  244.   Jhmsg->Data = nl;
  245.   Jhmsg->Command = JH_CO;
  246.   strcpy(Jhmsg->String,mstring);
  247.   PutMsg(port,(struct Message *)Jhmsg);
  248.   (void)WaitPort(replymp);
  249.   (void)GetMsg(replymp);
  250. }
  251. void SerOnly(char mstring[],int nl)
  252. {
  253.   Jhmsg->Data = nl;
  254.   Jhmsg->Command = JH_SO;
  255.   strcpy(Jhmsg->String,mstring);
  256.   PutMsg(port,(struct Message *)Jhmsg);
  257.   (void)WaitPort(replymp);
  258.   (void)GetMsg(replymp);
  259. }
  260. void sendMessage(char mstring[],int nl)
  261. {
  262.     Jhmsg->Data = nl;
  263.     Jhmsg->Command = JH_SM;
  264.     strcpy(Jhmsg->String,mstring);
  265.     PutMsg(port,(struct Message *)Jhmsg);
  266.     (void)WaitPort(replymp);
  267.     (void)GetMsg(replymp);
  268. }
  269. void MciSendStr(char mstring[],int nl)
  270. {
  271.     Jhmsg->Data = nl;
  272.     Jhmsg->Command = JH_MCI;
  273.     strcpy(Jhmsg->String,mstring);
  274.     PutMsg(port,(struct Message *)Jhmsg);
  275.     (void)WaitPort(replymp);
  276.     (void)GetMsg(replymp);
  277. }
  278.  
  279. int GetInfo(int cmd)
  280. {
  281.    Jhmsg->Command=cmd;
  282.    PutMsg(port,(struct Message *)Jhmsg);
  283.    WaitPort(replymp);
  284.    GetMsg(replymp);
  285.    return(msg->Data);
  286. }
  287. void PutInfo(int data,int cmd)
  288. {
  289.    Jhmsg->Command=cmd;
  290.    Jhmsg->Data=data;
  291.    PutMsg(port,(struct Message *)Jhmsg);
  292.    WaitPort(replymp);
  293.    GetMsg(replymp);
  294. }
  295. void sendchar(char mstring[],int nl)
  296. {
  297.      char temp[3];
  298.      temp[0]=mstring[0];
  299.      temp[1]='\0';
  300.     Jhmsg->Data = nl;
  301.     Jhmsg->Command = JH_SM;
  302.      strcpy(Jhmsg->String,temp);
  303.     PutMsg(port,(struct Message *)Jhmsg);
  304.     (void)WaitPort(replymp);
  305.     (void)GetMsg(replymp);
  306. }
  307. void hotkey(char mstring[],char *ostring)
  308. {
  309.         Jhmsg->LineNum=0;
  310.     strcpy(Jhmsg->String,mstring);
  311.     Jhmsg->Command = JH_HK;
  312.     PutMsg(port,(struct Message *)Jhmsg);
  313.     (void)WaitPort(replymp);
  314.     (void)GetMsg(replymp);
  315.     strcpy(ostring,Jhmsg->String);
  316. if(Jhmsg->Data==-1) CloseOut();
  317. }
  318. int FetchKey(void)
  319. {
  320.         Jhmsg->LineNum=0;
  321.     Jhmsg->Command = JH_FETCHKEY;
  322.     PutMsg(port,(struct Message *)Jhmsg);
  323.     (void)WaitPort(replymp);
  324.     (void)GetMsg(replymp);
  325. if(Jhmsg->Data==-1) CloseOut();
  326.  return(Jhmsg->Command);
  327. }
  328. int sigkey(void)
  329. {
  330.     Jhmsg->Command = JH_ExtHK;
  331.     PutMsg(port,(struct Message *)Jhmsg);
  332.     (void)WaitPort(replymp);
  333.     (void)GetMsg(replymp);
  334.  
  335. if(Jhmsg->Data==-1) CloseOut();
  336.      return(Jhmsg->Command);
  337. }
  338. char Fhotkey(void)
  339. {
  340.         Jhmsg->LineNum=0;
  341.     Jhmsg->Command = JH_HK;
  342.     PutMsg(port,(struct Message *)Jhmsg);
  343.     (void)WaitPort(replymp);
  344.     (void)GetMsg(replymp);
  345.     
  346. if(Jhmsg->Data==-1) CloseOut();
  347.     return(*(Jhmsg->String));
  348. }
  349. int getkey(void)
  350. {
  351.         Jhmsg->LineNum=0;
  352.     Jhmsg->Command = JH_CK;
  353.     PutMsg(port,(struct Message *)Jhmsg);
  354.     (void)WaitPort(replymp);
  355.     (void)GetMsg(replymp);
  356.     if(Jhmsg->String[0]=='1') return(1); else return(0);
  357. }
  358.  
  359. void Chain(char *str,int node,int opt)
  360. {
  361.   char cmd[200];
  362.   if(opt==SHUTDOWN)
  363.   {
  364.     sprintf(cmd,"RUN >NIL: %s %d",str,node);
  365.     Jhmsg->Command=CHAIN;
  366.     PutMsg(port,(struct Message *)Jhmsg);
  367.     (void)WaitPort(replymp);
  368.     (void)GetMsg(replymp);
  369.     ClosePort();
  370.     Execute(cmd,NULL,NULL);
  371.     
  372.   }
  373.   if(opt==WAIT)
  374.   {
  375.     sprintf(cmd,"%s %d",str,node);
  376.     //Jhmsg->Command=CHAIN;
  377.     //PutToPort((struct Message *)Jhmsg);
  378.     //(void)WaitPort(replymp);
  379.     //(void)GetMsg(replymp);
  380.     //ClosePort();
  381.     Execute(cmd,NULL,NULL);
  382.     //Register(node);
  383.     return;
  384.   }
  385. }
  386.  
  387. void prompt(char mstring[],char *ostring,int len)
  388. {
  389.         len +=1;
  390.         Jhmsg->LineNum=0;
  391.     strcpy(Jhmsg->String,mstring);
  392.     Jhmsg->Data=len;
  393.     Jhmsg->Command = JH_PM;
  394.     PutMsg(port,(struct Message *)Jhmsg);
  395.     (void)WaitPort(replymp);
  396.     (void)GetMsg(replymp);
  397.     strcpy(ostring,Jhmsg->String);
  398. if(Jhmsg->Data==-1) CloseOut();
  399. }
  400. void lineinput(char mstring[],char *ostring,int len)
  401. {
  402.         len +=1;
  403.         Jhmsg->LineNum=0;
  404.     strcpy(Jhmsg->String,mstring);
  405.     Jhmsg->Data=len;
  406.     Jhmsg->Command = JH_LI;
  407.     PutMsg(port,(struct Message *)Jhmsg);
  408.     (void)WaitPort(replymp);
  409.     (void)GetMsg(replymp);
  410.     strcpy(ostring,Jhmsg->String);
  411. if(Jhmsg->Data==-1) CloseOut();
  412. }
  413. void showfile(char mstring[])
  414. {
  415.     strcpy(Jhmsg->String,mstring);
  416.     Jhmsg->Command = JH_SF;
  417.     PutMsg(port,(struct Message *)Jhmsg);
  418.     (void)WaitPort(replymp);
  419.     (void)GetMsg(replymp);
  420. }
  421. void showgfile(char mstring[])
  422. {
  423.     strcpy(Jhmsg->String,mstring);
  424.     Jhmsg->Command = JH_SG;
  425.     PutMsg(port,(struct Message *)Jhmsg);
  426.     (void)WaitPort(replymp);
  427.     (void)GetMsg(replymp);
  428. }
  429.  
  430. void getuserstring(char *ostring,int nl)
  431. {
  432.         Jhmsg->Command = nl;
  433.         Jhmsg->Data=READIT;
  434.     PutMsg(port,(struct Message *)Jhmsg);
  435.     (void)WaitPort(replymp);
  436.     (void)GetMsg(replymp);
  437.    strcpy(ostring,Jhmsg->String);
  438. }
  439. void putuserstring(char *ostring,int nl)
  440. {
  441.         Jhmsg->Command = nl;
  442.         Jhmsg->Data=WRITEIT;
  443.         strcpy(Jhmsg->String,ostring);
  444.     PutMsg(port,(struct Message *)Jhmsg);
  445.     (void)WaitPort(replymp);
  446.     (void)GetMsg(replymp);
  447.  
  448. }
  449. void getspecdata(char *ostring,char *dest,int nl);
  450. void getspecdata(char *ostring,char *dest,int nl)
  451. {
  452.         Jhmsg->Command = nl;
  453.         Jhmsg->Data=WRITEIT;
  454.         strcpy(Jhmsg->String,ostring);
  455.     PutMsg(port,(struct Message *)Jhmsg);
  456.     (void)WaitPort(replymp);
  457.     (void)GetMsg(replymp);
  458.      strcpy(dest,Jhmsg->String);
  459.  
  460. }
  461. /*
  462. struct MsgPort *CreatePort(UBYTE *name,LONG pri)
  463. {
  464.   int sigBit;
  465.   struct MsgPort *mp;
  466.   
  467.   if((sigBit=AllocSignal(-1L))==-1)
  468.     return(NULL);
  469.   mp=(struct MsgPort *)
  470.      AllocMem((ULONG)sizeof(struct MsgPort),(ULONG)MEMF_CLEAR|MEMF_PUBLIC);
  471.   if(!mp)
  472.   {
  473.     FreeSignal(sigBit);
  474.     return(NULL);
  475.   }
  476.   mp->mp_Node.ln_Name=name;
  477.   mp->mp_Node.ln_Pri=pri;
  478.   mp->mp_Node.ln_Type=NT_MSGPORT;
  479.   mp->mp_Flags=PA_SIGNAL;
  480.   mp->mp_SigBit=sigBit;
  481.   mp->mp_SigTask=(struct Task *)FindTask(0L);
  482.   if(name)
  483.     AddPort(mp);
  484.   else
  485.     NewList(&(mp->mp_MsgList));
  486.   return(mp);
  487. }
  488. */
  489. int getsignal(void)
  490. {
  491.   Jhmsg->Command = JH_SIGBIT;
  492.     PutMsg(port,(struct Message *)Jhmsg);
  493.     (void)WaitPort(replymp);
  494.     (void)GetMsg(replymp);
  495.    return(Jhmsg->Data);
  496. }
  497. void FlagFile(char *string)
  498. {
  499.    strcpy(Jhmsg->String,string);
  500.     Jhmsg->Command = JH_FLAGFILE;
  501.     PutMsg(port,(struct Message *)Jhmsg);
  502.     (void)WaitPort(replymp);
  503.     (void)GetMsg(replymp);
  504. }
  505. VOID CloseOut(void)
  506. {
  507.   ShutDown();
  508.   end();
  509. }
  510. BOOL CheckToDisplay(char *s)
  511. {
  512. register int loop;
  513. char FileName[200];
  514. char temp[200];
  515. getuserstring(FileName,DT_SECSTATUS);
  516. loop=atoi(FileName);
  517. strcpy(FileName,s);
  518.     loop=(loop-(loop%5));
  519.     for(; loop>2; loop-=5)
  520.         {
  521.         sprintf(temp,"%s%d.txt",FileName,loop);
  522.           if(TLock(temp))
  523.           {
  524.             sprintf(temp,"%s%d",FileName,loop);
  525.             showgfile(temp); return(1);
  526.           }
  527.           sprintf(temp,"%s%d.txt.gr",FileName,loop);
  528.           if(TLock(temp))
  529.           {
  530.              sprintf(temp,"%s%d",FileName,loop);
  531.              showgfile(temp); return(1);
  532.           }
  533.           sprintf(temp,"%s%d.GR1",FileName,loop);
  534.           if(TLock(temp))
  535.           {
  536.              sprintf(temp,"%s%d",FileName,loop);
  537.              showgfile(temp); return(1);
  538.           }          
  539.     }
  540.      sprintf(temp,"%s.txt",FileName);
  541.      if(TLock(temp))
  542.      {
  543.        showgfile(FileName); return(1);
  544.      }
  545.      sprintf(temp,"%s.txt.gr",FileName);
  546.      if(TLock(temp))
  547.      {
  548.        showgfile(FileName); return(1);
  549.      }
  550.      sprintf(temp,"%s.GR1",FileName);
  551.      if(TLock(temp))
  552.      {
  553.        showgfile(FileName); return(1);
  554.      }
  555.      return(0);
  556. }
  557.  
  558. int TLock(char *str)
  559. {
  560.   long lock;
  561.   if(lock=Lock(str,ACCESS_READ))
  562.   {
  563.     UnLock(lock); return(1);
  564.   }
  565.   return(0);
  566. }
  567. APTR GetSemaphore(void)
  568. {
  569.    Jhmsg->Command=MULTICOM;
  570.    PutMsg(port,(struct Message *)Jhmsg);
  571.     (void)WaitPort(replymp);
  572.     (void)GetMsg(replymp);
  573.      return(msg->Semi);
  574. }
  575. int AcsStat(int bits,int opt)
  576. {
  577.    switch(opt)
  578.    {
  579.      case ADDBIT:
  580.           Jhmsg->Command=ADDBIT;
  581.           Jhmsg->Data=bits;
  582.           break;
  583.      case REMBIT:
  584.           Jhmsg->Command=REMBIT;
  585.           Jhmsg->Data=bits;
  586.           break;
  587.      case QUERYBIT:
  588.           Jhmsg->Command=QUERYBIT;
  589.           Jhmsg->Data=bits;
  590.           break;
  591.      default: return(0);
  592.    } 
  593.        PutMsg(port,(struct Message *)Jhmsg);
  594.     (void)WaitPort(replymp);
  595.     (void)GetMsg(replymp);
  596.      return(msg->Command);
  597. }
  598. STRPTR GetTheDate(long number)
  599. {
  600.   char Date[22];
  601.   getsystime(number,Date,NULL);
  602.   return(Date);
  603. }
  604. STRPTR GetTheTime(long number)
  605. {
  606.   char temp[30];
  607.   getsystime(number,NULL,temp);
  608.  return(temp);
  609. }
  610. ULONG UnixTimeOffset = 252482400;
  611.  
  612. /**********************************************************
  613.  *    ULONG getsystime(struct timeval *tv)
  614.  *
  615.  *      This function was rewritten using DateStamp() to
  616.  * eliminate the opening and closing of the timer.device
  617.  * that was occurring everytime this function was called.
  618.  * An attempt to save some processing time.   -WMP-
  619.  **********************************************************/
  620. void getsystime(long number,char *d,char *t)
  621. {
  622.   struct DateStamp ds;
  623.    struct DateTime dt;
  624.    if(number==0L)
  625.    {
  626.      DateStamp(&ds);
  627.      dt.dat_Stamp=ds;
  628.    }
  629.    else
  630.    {
  631.       number -= UnixTimeOffset;
  632.       dt.dat_Stamp.ds_Days=number/(60L*60L*24L);
  633.                            number -= dt.dat_Stamp.ds_Days*(60L*60L*24L);
  634.       dt.dat_Stamp.ds_Minute=number/60L; 
  635.       dt.dat_Stamp.ds_Tick=0L;
  636.    }
  637.      dt.dat_Format=FORMAT_USA;
  638.    dt.dat_StrDay=NULL;
  639.    dt.dat_StrDate=d;
  640.    dt.dat_StrTime=t;
  641.    dt.dat_Flags=DTB_SUBST;
  642.    DateToStr(&dt);
  643. }
  644.